#!/usr/bin/perl
#
use strict;
use warnings;
use Tk;

my $mw = new MainWindow();

my $can = $mw -> Canvas(-width => 800,
                        -height => 600,
                        -background => 'black') -> pack();

$can -> createOval(100,100,200,200, -fill => 'blue');

my $bottom_frame = $mw -> Frame() -> pack(-side => "bottom");

$bottom_frame -> Button(-text => "Ok") -> pack();

MainLoop();

